home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Dev / powerd / lib / powerd_lib.lha / PowerD / FileLength.d < prev    next >
Encoding:
Text File  |  1999-06-23  |  247 b   |  16 lines
  1. OPT    NOSTD,NOHEAD
  2.  
  3. MODULE    'dos','dos/dos'
  4.  
  5. EDEF    DOSBase
  6.  
  7. PROC FileLength(name:PTR TO CHAR)(LONG)
  8.     DEF    lock:BPTR,fib:FileInfoBlock,l=TRUE
  9.     IF lock:=Lock(name,ACCESS_READ)
  10.         IF Examine(lock,fib)
  11.             l:=fib.Size
  12.         ENDIF
  13.         UnLock(lock)
  14.     ENDIF
  15. ENDPROC l
  16.